io Programmo 72/IOPROG_72.ISO/soft/c++/NCTDiscWriter2.exe/{app}/MS VB 6.0 Samples/TestVBDataCDWriter/TestVBDataCDWriter.frm

Visual Basic Form | 2003-04-15 | 22.7 KB | 671 lines

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frmTestVBDataCDWriter
   Caption         =   "TestVBDataCDWriter"
   ClientHeight    =   7770
   ClientLeft      =   60
   ClientTop       =   630
   ClientWidth     =   8880
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   7770
   ScaleWidth      =   8880
   StartUpPosition =   2  'CenterScreen
   Begin VB.Frame Frame2
      Caption         =   "Drive Action"
      Height          =   735
      Left            =   5430
      TabIndex        =   17
      Top             =   60
      Width           =   3405
      Begin VB.CommandButton RefreshBtn
         Caption         =   "Refresh CD"
         Height          =   345
         Left            =   90
         TabIndex        =   21
         Top             =   300
         Width           =   1575
      End
      Begin VB.CommandButton EraseBtn
         Caption         =   "Erase CD"
         Height          =   345
         Left            =   1770
         TabIndex        =   18
         Top             =   300
         Width           =   1515
      End
   End
   Begin VB.Frame Frame1
      Caption         =   "Drive View"
      Height          =   735
      Left            =   60
      TabIndex        =   15
      Top             =   60
      Width           =   5325
      Begin VB.CommandButton EjectBtn
         Caption         =   "Eject"
         Height          =   345
         Left            =   4200
         TabIndex        =   20
         Top             =   300
         Width           =   1035
      End
      Begin VB.ComboBox driveCombo
         Height          =   315
         ItemData        =   "TestVBDataCDWriter.frx":0000
         Left            =   120
         List            =   "TestVBDataCDWriter.frx":0002
         TabIndex        =   16
         TabStop         =   0   'False
         Text            =   "Drive Name"
         ToolTipText     =   "Drive Name"
         Top             =   330
         Width           =   4005
      End
   End
   Begin MSComctlLib.ListView ListView1
      Height          =   2295
      Left            =   210
      TabIndex        =   0
      ToolTipText     =   "Track To Burn List"
      Top             =   3960
      Width           =   8595
      _ExtentX        =   15161
      _ExtentY        =   4048
      View            =   3
      LabelEdit       =   1
      LabelWrap       =   -1  'True
      HideSelection   =   0   'False
      OLEDragMode     =   1
      OLEDropMode     =   1
      FullRowSelect   =   -1  'True
      _Version        =   393217
      ForeColor       =   -2147483640
      BackColor       =   -2147483643
      BorderStyle     =   1
      Appearance      =   1
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   204
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      OLEDragMode     =   1
      OLEDropMode     =   1
      NumItems        =   3
      BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
         Text            =   "No"
         Object.Width           =   707
      EndProperty
      BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
         SubItemIndex    =   1
         Text            =   "Path"
         Object.Width           =   10584
      EndProperty
      BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
         SubItemIndex    =   2
         Text            =   "Type"
         Object.Width           =   3704
      EndProperty
   End
   Begin VB.Frame frmDView
      Caption         =   "Burn Image View"
      Height          =   3045
      Left            =   90
      TabIndex        =   12
      Top             =   3690
      Width           =   8775
      Begin VB.CommandButton WriteNowBtn
         Caption         =   "Write CD Now!"
         Height          =   315
         Left            =   4200
         TabIndex        =   19
         Top             =   2640
         Width           =   4485
      End
      Begin VB.CommandButton DeleteBtn
         Caption         =   "Delete"
         Height          =   315
         Left            =   150
         TabIndex        =   14
         Top             =   2640
         Width           =   1065
      End
      Begin VB.CommandButton DeleteAllBtn
         Caption         =   "Delete All"
         Height          =   315
         Left            =   1260
         TabIndex        =   13
         Top             =   2640
         Width           =   1095
      End
   End
   Begin VB.Frame frmFileView
      Caption         =   "File View"
      Height          =   2745
      Left            =   60
      TabIndex        =   4
      Top             =   870
      Width           =   8775
      Begin VB.CommandButton AddDirBtn
         Caption         =   "Add Dir"
         Height          =   315
         Left            =   120
         TabIndex        =   9
         Top             =   2340
         Width           =   4005
      End
      Begin VB.DriveListBox drvSelect
         Height          =   315
         Left            =   120
         TabIndex        =   8
         Top             =   240
         Width           =   4005
      End
      Begin VB.DirListBox dirSelect
         Height          =   1665
         Left            =   120
         TabIndex        =   7
         Top             =   600
         Width           =   4005
      End
      Begin VB.FileListBox fileSelect
         Height          =   2040
         Left            =   4170
         MultiSelect     =   2  'Extended
         ReadOnly        =   0   'False
         TabIndex        =   6
         Top             =   240
         Width           =   4515
      End
      Begin VB.CommandButton AddFileBtn
         Caption         =   "Add File"
         Height          =   315
         Left            =   4200
         TabIndex        =   5
         Top             =   2340
         Width           =   4485
      End
   End
   Begin MSComctlLib.StatusBar stBarAudioWriter
      Align           =   2  'Align Bottom
      Height          =   285
      Left            =   0
      TabIndex        =   1
      Top             =   7485
      Width           =   8880
      _ExtentX        =   15663
      _ExtentY        =   503
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
         NumPanels       =   5
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
            Object.Width           =   3246
            MinWidth        =   3246
            Text            =   "CD-RW"
            TextSave        =   "CD-RW"
            Object.ToolTipText     =   "Disc Type"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
            Object.Width           =   2011
            MinWidth        =   2011
            Text            =   "Open"
            TextSave        =   "Open"
            Object.ToolTipText     =   "Disk Status"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
            Alignment       =   2
            Object.Width           =   3246
            MinWidth        =   3246
            Text            =   "50.000Mb"
            TextSave        =   "50.000Mb"
            Object.ToolTipText     =   "Used Space"
         EndProperty
         BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628}
            Alignment       =   2
            Object.Width           =   3246
            MinWidth        =   3246
            Text            =   "650.000Mb"
            TextSave        =   "650.000Mb"
            Object.ToolTipText     =   "Estimated Used Space"
         EndProperty
         BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628}
            Style           =   5
            Alignment       =   2
            Object.Width           =   3246
            MinWidth        =   3246
            TextSave        =   "11:52"
            Object.ToolTipText     =   "Current Time"
         EndProperty
      EndProperty
   End
   Begin MSComDlg.CommonDialog CommonDialog1
      Left            =   -390
      Top             =   4560
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.Frame frmEstBurnSpace
      Caption         =   "Estimated Burn Space"
      Height          =   675
      Left            =   90
      TabIndex        =   2
      Top             =   6780
      Width           =   8805
      Begin VB.Label Label1
         Height          =   435
         Left            =   8700
         TabIndex        =   3
         Top             =   180
         Width           =   30
      End
      Begin VB.Shape shpUsedSize
         FillColor       =   &H0000FFFF&
         FillStyle       =   0  'Solid
         Height          =   165
         Left            =   90
         Top             =   330
         Width           =   315
      End
      Begin VB.Line shpLine650Mb
         BorderColor     =   &H00FF0000&
         X1              =   8130
         X2              =   8130
         Y1              =   300
         Y2              =   510
      End
      Begin VB.Shape shpEstWriteSize
         FillColor       =   &H00008000&
         FillStyle       =   0  'Solid
         Height          =   165
         Left            =   90
         Top             =   330
         Width           =   495
      End
      Begin VB.Line shpLine702Mb
         BorderColor     =   &H000000FF&
         X1              =   8670
         X2              =   8670
         Y1              =   300
         Y2              =   510
      End
      Begin VB.Shape shpDiscSize
         Height          =   225
         Left            =   90
         Top             =   300
         Width           =   8595
      End
      Begin VB.Label Label2
         Height          =   375
         Left            =   60
         MousePointer    =   2  'Cross
         TabIndex        =   10
         ToolTipText     =   "Estimated Write Space On 650Mb or 700m disc"
         Top             =   210
         Width           =   8685
      End
   End
   Begin VB.Label CurDirLbl
      Height          =   255
      Left            =   120
      TabIndex        =   11
      Top             =   7050
      Width           =   8805
   End
   Begin VB.Menu mnuFile
      Caption         =   "&File"
      Begin VB.Menu mnuFileAdd
         Caption         =   "Add"
         Shortcut        =   ^{INSERT}
      End
      Begin VB.Menu mnuFileSeparator
         Caption         =   "-"
      End
      Begin VB.Menu mnuFileExit
         Caption         =   "Exit"
         Shortcut        =   ^X
      End
   End
   Begin VB.Menu mnuCDRecorder
      Caption         =   "&Recorder"
      Begin VB.Menu mnuCDRecorderChooseRecorder
         Caption         =   "Choose Recorder"
      End
      Begin VB.Menu mnuCDRecorderSetBurnMethod
         Caption         =   "Set Burn Method"
         Enabled         =   0   'False
      End
   End
   Begin VB.Menu mnuCD
      Caption         =   "&CD"
      Begin VB.Menu mnuCDDiscInfo
         Caption         =   "Disc Info"
      End
      Begin VB.Menu mnuCDRefresh
         Caption         =   "Refresh"
      End
      Begin VB.Menu mnuCDErase
         Caption         =   "Erase CD-RW"
      End
      Begin VB.Menu mnuCDEject
         Caption         =   "Eject"
      End
   End
   Begin VB.Menu mnuWrite
      Caption         =   "&Write"
      Begin VB.Menu mnuWriteStartBurn
         Caption         =   "StartWrite"
      End
   End
Attribute VB_Name = "frmTestVBDataCDWriter"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public driveNum As Integer
Public error As Boolean
Public OperationProgress As Boolean
Public eraseProgress As Integer
Public WithEvents DataCDWriter1 As NCTDISCWRITERLib.DataCDWriter
Attribute DataCDWriter1.VB_VarHelpID = -1
Dim fName As String
Dim fNumber As Integer
Dim itmX As ListItem
Dim pattern As String
Dim FileAsTrack(500) As String
Dim FilePath(500) As String
Dim FileType(500) As String
Private Sub AddDirBtn_Click()
    fName = dirSelect.Path
    If Len(fName) = 3 And Right(fName, 2) = ":\" Then
        MsgBox "Root directory can't be added!"
        Exit Sub
    End If
    error = False
    DataCDWriter1.DataAddItem fName

    If error = False Then
        FileAsTrack(fNumber) = Right(dirSelect.Path, Len(dirSelect.Path) - InStrRev(dirSelect.Path, "\"))
        FilePath(fNumber) = dirSelect.Path
        FileType(fNumber) = "FOLDER"
        CurDirLbl.Caption = ""

        Set itmX = ListView1.ListItems.Add()
        itmX.Text = fNumber + 1
        itmX.SubItems(1) = FileAsTrack(fNumber)
        itmX.SubItems(2) = FileType(fNumber)
        fNumber = fNumber + 1
    Else
        fName = ""
        CurDirLbl.Caption = ""
    End If
    shpEstWriteSize.Width = shpDiscSize.Width * ((DataCDWriter1.GetDataVolumeBurnSize / 1024) / 1024 / 702)
    If shpEstWriteSize.Width > shpDiscSize.Width - (shpEstWriteSize.Left - shpDiscSize.Left) Then
         shpEstWriteSize.Width = shpDiscSize.Width - (shpEstWriteSize.Left - shpDiscSize.Left)
    End If
    Me.Refresh
    ListView1.Refresh
    stBarAudioWriter.Panels(4).Text = Format((DataCDWriter1.GetDataVolumeBurnSize / 1024) / 1024, "#0.000") & " MB"
End Sub
Private Sub AddFileBtn_Click()
   Dim fileSelNum As Integer

    fileSelNum = 0
    Do While fileSelNum < fileSelect.ListCount
        If fileSelect.Selected(fileSelNum) = True Then
            error = False
            fName = fileSelect.List(fileSelNum)
            DataCDWriter1.DataAddItem (fileSelect.Path & "\" & fName)
            If error = False Then
               FileAsTrack(fNumber) = fName
               FilePath(fNumber) = fileSelect.Path & "\" & fName
               FileType(fNumber) = "FILE"
               CurDirLbl.Caption = ""
               Set itmX = ListView1.ListItems.Add()
               itmX.Text = fNumber + 1
               itmX.SubItems(1) = FileAsTrack(fNumber)
               itmX.SubItems(2) = FileType(fNumber)
               fNumber = fNumber + 1
            Else
                CurDirLbl.Caption = ""
            End If
        End If
        fileSelNum = fileSelNum + 1
    Loop
    shpEstWriteSize.Width = shpDiscSize.Width * ((DataCDWriter1.GetDataVolumeBurnSize / 1024) / 1024 / 702)
    If shpEstWriteSize.Width > shpDiscSize.Width - (shpEstWriteSize.Left - shpDiscSize.Left) Then
         shpEstWriteSize.Width = shpDiscSize.Width - (shpEstWriteSize.Left - shpDiscSize.Left)
    End If

    Me.Refresh
    ListView1.Refresh
    stBarAudioWriter.Panels(4).Text = Format((DataCDWriter1.GetDataVolumeBurnSize / 1024) / 1024, "#0.000") & " MB"
End Sub
Private Sub EjectBtn_Click()
    DataCDWriter1.Eject
    RefreshDiskInfo
End Sub
Private Sub EraseBtn_Click()
    EraseDisc
End Sub
Private Sub mnuWriteStartBurn_Click()
    WriteDisc
End Sub
Private Sub RefreshBtn_Click()
    RefreshDiskInfo
End Sub
Private Sub WriteNowBtn_Click()
    WriteDisc
End Sub
Private Sub dirSelect_Change()
    fileSelect.Path = dirSelect.Path
End Sub
Private Sub drvSelect_Change()
    If drvSelect.Drive <> "a:" And drvSelect.Drive <> "b:" Then
        dirSelect.Path = drvSelect.Drive
        fileSelect.Path = dirSelect.Path
    End If
End Sub
Private Sub Form_Load()
    Dim DriveName As String
    frmScan.Show 0, Me
    frmScan.Label1.Refresh
    Set DataCDWriter1 = New NCTDISCWRITERLib.DataCDWriter
    DataCDWriter1.DriverOpen
    frmScan.Hide
    If Dir(Left(GetWinDir, 2) & GetUserHomePath & "\My Documents", vbDirectory) <> "" Then
        drvSelect.Drive = Left(GetWinDir, 2)
        dirSelect.Path = Left(GetWinDir, 2) & GetUserHomePath & "\My Documents"
        fileSelect.Path = dirSelect.Path
    Else
        dirSelect.Path = drvSelect.Drive
    End If
    fileSelect.Path = dirSelect.Path
    DataCDWriter1.driveNum = 1

    error = False
    RefreshDiskInfo
    If error = True Then
        MsgBox "No CD/DVD readers or recorders found!", vbOKOnly, "Scanning IDE/SCSI buses error"
    End If
    error = False
    driveCombo.Clear
    For driveNum = 1 To DataCDWriter1.driveCount
        DataCDWriter1.driveNum = driveNum
        DriveName = " " & DataCDWriter1.driveVendor & "  " & frmTestVBDataCDWriter.DataCDWriter1.driveModel & "  " & DataCDWriter1.driveFirmwareVersion
        driveCombo.AddItem DriveName
    Next
    If driveCombo.ListCount > 0 Then
        driveCombo.ListIndex = 0
    End If
    driveNum = DataCDWriter1.driveNum
    fNumber = 0
End Sub
Private Sub driveCombo_Click()
    driveNum = driveCombo.ListIndex + 1
    OpenDrive
End Sub
Private Sub OpenDrive()
    DataCDWriter1.driveNum = driveNum
    RefreshDiskInfo
End Sub
Private Sub Form_Unload(Cancel As Integer)
    DataCDWriter1.DriverClose
    Set DataCDWriter1 = Nothing
End Sub
Private Sub mnuCDErase_Click()
    EraseDisc
End Sub
Private Sub mnuFileExit_Click()
    Unload Me
End Sub
Private Sub mnuFileAdd_Click()
    AddFileBtn_Click
End Sub
Private Sub DeleteBtn_Click()
    Dim i As Integer
    If ListView1.ListItems.Count <= 0 Then
        Exit Sub
    End If
    i = ListView1.SelectedItem.Index
    Do While i < fNumber
        If i <> 0 Then
           FileAsTrack(i - 1) = FileAsTrack(i)
           FilePath(i - 1) = FilePath(i)
           FileType(i - 1) = FileType(i)
        End If
        i = i + 1
    Loop
    fNumber = fNumber - 1
    LoadTracks

    ListView1.Refresh

    shpEstWriteSize.Width = shpDiscSize.Width * ((DataCDWriter1.GetDataVolumeBurnSize / 1024) / 1024 / 702)
    stBarAudioWriter.Panels(4).Text = Format((DataCDWriter1.GetDataVolumeBurnSize / 1024) / 1024, "#0.000") & " MB"
End Sub
Private Sub DeleteAllBtn_Click()
   ListView1.ListItems.Clear
   DataCDWriter1.DataDeleteAllItems
   fNumber = 0
   shpEstWriteSize.Width = shpDiscSize.Width * ((DataCDWriter1.GetDataVolumeBurnSize / 1024) / 1024 / 702)
   stBarAudioWriter.Panels(4).Text = Format((DataCDWriter1.GetDataVolumeBurnSize / 1024) / 1024, "#0.000") & " MB"
End Sub
Private Sub LoadTracks()
    Dim i As Integer
    ListView1.ListItems.Clear
    DataCDWriter1.DataDeleteAllItems
    i = 0
    Do While i < fNumber
      Set itmX = ListView1.ListItems.Add()
      itmX.Text = i + 1
      itmX.SubItems(1) = FileAsTrack(i)
      itmX.SubItems(2) = FileType(i)
      DataCDWriter1.DataAddItem FilePath(i)
      CurDirLbl.Caption = ""
      i = i + 1
    Loop
    shpEstWriteSize.Width = shpDiscSize.Width * ((DataCDWriter1.GetDataVolumeBurnSize / 1024) / 1024 / 702)
    If shpEstWriteSize.Width > shpDiscSize.Width - (shpEstWriteSize.Left - shpDiscSize.Left) Then
         shpEstWriteSize.Width = shpDiscSize.Width - (shpEstWriteSize.Left - shpDiscSize.Left)
    End If

    Me.Refresh
    stBarAudioWriter.Panels(4).Text = Format((DataCDWriter1.GetDataVolumeBurnSize / 1024) / 1024, "#0.000") & " MB"
End Sub
Public Sub RefreshDiskInfo()
    DataCDWriter1.Refresh
    stBarAudioWriter.Panels(3).Text = Format((DataCDWriter1.cdUsedSpace / 1024) / 1024, "#0.000") & " MB"
    stBarAudioWriter.Panels(4).Text = Format((DataCDWriter1.GetDataVolumeBurnSize / 1024) / 1024, "#0.000") & " MB"

    Select Case DataCDWriter1.cdType
    Case WRITEONCE:
        stBarAudioWriter.Panels(1).Text = "CD-R, CD-ROM"
    Case ERASABLE:
        stBarAudioWriter.Panels(1).Text = "CD-RW"
    Case RANDOMACCESS
        stBarAudioWriter.Panels(1).Text = "DVD-RAM"
    Case NODISC:
        stBarAudioWriter.Panels(1).Text = "No Disc"
        stBarAudioWriter.Panels(3).Text = "0"
        stBarAudioWriter.Panels(4).Text = "0"
    End Select
    Select Case DataCDWriter1.cdStatus
    Case BLANK:
        stBarAudioWriter.Panels(2).Text = "Blank"
    Case WRITEBLE:
        stBarAudioWriter.Panels(2).Text = "Open"
    Case NOTWRITEBLE:
        stBarAudioWriter.Panels(2).Text = "Closed"
    Case UNRECOGNIZED:
        stBarAudioWriter.Panels(2).Text = "Unknown"
        stBarAudioWriter.Panels(3).Text = "0"
        stBarAudioWriter.Panels(4).Text = "0"
    End Select
    shpUsedSize.Width = shpDiscSize.Width * ((DataCDWriter1.cdUsedSpace / 1024) / 1024 / 702)
    If shpUsedSize.Width > shpDiscSize.Width - (shpUsedSize.Left - shpDiscSize.Left) Then
         shpUsedSize.Width = shpDiscSize.Width - (shpUsedSize.Left - shpDiscSize.Left)
    End If
    shpEstWriteSize.Width = shpDiscSize.Width * ((DataCDWriter1.GetDataVolumeBurnSize / 1024) / 1024 / 702)
    Me.Refresh
End Sub
Private Sub DataCDWriter1_ErrorEx(ByVal errCode As errCode, ByVal errDescr As String)
    Dim i As Integer
    error = True
    If errCode <> DRIVENOTSUPPORTED And errCode <> INITFAILED Then
       MsgBox "Error: " & errCode & ". " & errDescr
    End If

End Sub
Private Sub DataCDWriter1_OperationProgress(ByVal Percent As Integer)
    OperationProgress = True
    If DataCDWriter1.driveOperation = ADD_ITEM Then
       CurDirLbl.Caption = DataCDWriter1.GetAddItemCurPath
       DoEvents
       Me.Refresh
    End If
    If DataCDWriter1.driveOperation = ERASE_DISC Then
        eraseProgress = Percent
    Else
        frmWrite.OperationProgress (Percent)
    End If
End Sub
Private Sub DataCDWriter1_MediaChange()
    RefreshDiskInfo
End Sub
'Private Sub SetDriveWriteMethod()
'    ListView1.ListItems.Clear
'    DataCDWriter1.DeleteAllFiles
'    fNumber = 0
'    frmWriteMethod.Show 1, Me
'    RefreshDiskInfo
'End Sub
Private Sub mnuCDDiscInfo_Click()
    frmDiscInfo.Show 1
End Sub
Private Sub mnuCDEject_Click()
    DataCDWriter1.Eject
    RefreshDiskInfo
End Sub
Private Sub mnuCDRecorderChooseRecorder_Click()
    frmChooseRec.Show 1
End Sub
'Private Sub mnuCDRecorderSetWriteMethod_Click()
'    frmWriteMethod.Show 1
'End Sub
Private Sub mnuCDRefresh_Click()
    RefreshDiskInfo
End Sub
Public Sub EraseDisc()
     frmErase.Show 1, Me
End Sub
Public Sub WriteDisc()
    frmWrite.LoadSpeedCombo1
    frmWrite.Show 1, Me
End Sub